home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / hm--html-menus / hm--date.el.z / hm--date.el
Encoding:
Text File  |  1998-05-21  |  1.5 KB  |  46 lines
  1. ;;; $Id: hm--date.el,v 3.3 1996/07/13 11:43:21 muenkel Exp $
  2. ;;;
  3. ;;; Copyright (C) 1993, 1996  Heiko Muenkel
  4. ;;; email: muenkel@tnt.uni-hannover.de
  5. ;;;
  6. ;;;  This program is free software; you can redistribute it and/or modify
  7. ;;;  it under the terms of the GNU General Public License as published by
  8. ;;;  the Free Software Foundation; either version 2, or (at your option)
  9. ;;;  any later version.
  10. ;;;
  11. ;;;  This program is distributed in the hope that it will be useful,
  12. ;;;  but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. ;;;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. ;;;  GNU General Public License for more details.
  15. ;;;
  16. ;;;  You should have received a copy of the GNU General Public License
  17. ;;;  along with this program; if not, write to the Free Software
  18. ;;;  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  19. ;;;
  20. ;;; 
  21. ;;; Description:
  22. ;;;
  23. ;;;    Defines the function hm--date, which returns the date in the
  24. ;;;    format "day-month-year" like "30-Jun-1993".
  25. ;;; 
  26. ;;; Installation: 
  27. ;;;   
  28. ;;;    Put this file in one of your lisp load path directories.
  29. ;;;    The files which uses this function must only have
  30. ;;;    following line:
  31. ;;;        (require 'hm--date)
  32. ;;;
  33.  
  34.  
  35. (provide 'hm--date)
  36.  
  37.  
  38.  
  39. (defun hm--date ()
  40.   "Returns the current date in the format \"day-month-year\"."
  41.   (let* ((time-string (current-time-string))
  42.     (day (substring time-string 8 10))
  43.     (month (substring time-string 4 7))
  44.     (year (substring time-string 20 24)))
  45.     (concat day "-" month "-" year)))
  46.